home *** CD-ROM | disk | FTP | other *** search
/ Exploring Aeronautics / NASA Exploring Aeronautics.iso / pc / source / index.dxr / 00005_visitor.ls < prev    next >
Encoding:
Text File  |  1998-06-02  |  319 b   |  14 lines

  1. global gMain, gModule4, gSoundManager
  2.  
  3. on mouseUp
  4.   set baseSprite to 24
  5.   set pageNum to the clickOn - baseSprite
  6.   if not objectp(gModule4) then
  7.     alert("Index Error:" & " Visitor ")
  8.   else
  9.     mPuppetSound(gSoundManager, "singleClick")
  10.     mGoToMovie(gMain, #visitor)
  11.     mGoToPage(gModule4, pageNum)
  12.   end if
  13. end
  14.